home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 24
/
Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso
/
Aminet
/
dev
/
basic
/
EFMUILibSrc.lha
/
EFMUILibSrc
/
Blitzlibs
/
userlibs
/
EFMUILib.asc
Wrap
Text File
|
1998-02-03
|
89KB
|
3,596 lines
;**************************************************
;* *
;* EFMUILib Version 1.4 *
;* *
;* (c) 1997-1998 by VIVID Imagination *
;**************************************************
;
;History:
;~~~~~~~~
;
;Version 1.4 (01.02.98)
;-MUIChangeBitmap and MUIChangeShape added
;-MUIRedraw added
;-MUIList changed (now works)
;-MUIListHook and MUIChangeList added
;-MUIShapeObject bug removed
;
;Version 1.3 (22.01.98) (not released)
;-MUIBitmapObject added
;-MUIShapeObject added
;-MUICreateWindow ID bug removed
;
;
;Version 1.2 (12.12.97)
;-MUIBalanceObject added
;-MUINotifyApp added
;-MUIAddObjsXXX added
;
;
;Version 1.1a (11.12.97) (not released)
;-MUIImageButton bug fixed.
;
;
;Version 1.1 (07.12.97) :
;- MUIApplicationxxx bugs removed
;- MUIDoMethod is now a command
;- Menu support added :
; MUICreateMenu
; MUISetMenu
; MUIFindUData
;- Max objects set to 50 by default
;
;
;Version 1.0 (24.11.97) :
; First release
;
;
;Commands list:
;~~~~~~~~~~~~~~
;
;MUISetMaximumTags max
;
;MUIApplicationTitle title$
;MUIApplicationVersion version$
;MUIApplicationCopyright copyright$
;MUIApplicationAuthor author$
;MUIApplicationDescription description$
;MUIApplicationBase base$
;MUIAddApplicationTags &TagList | Tag,Value [,Tag,Value...]
;MUICreateApplication
;MUIRemoveApplication
;MUIApplicationLoc
;MUIApplicationObj To MUIObject#
;MUIAddSubWindow MUIObject#
;
;MUIFreeObject MUIObject#
;
;MUICreateWindow MUIObject#,title$ [,id$ [,MUIObject#] ]
;MUIOpenWindow MUIObject#
;MUICloseWindow MUIObject#
;
;MUICreateMenu MUIObject#,GTMenuList#,Flags [,TitleUData1 [,...]]
;MUISetMenu To MUIObject#,MUIObject#
;
;MUIObjLoc (MUIObject#)
;
;MUIRequest To MUIObject#,Flags,Title$,Gadgets$,Format$ [,Param...]
;
;MUIAddTags MUIObject#,&TagList | MUIObject#,Tag,Value [,Tag,Value...]
;
;MUINewObject MUIObject#,Class$,&TagList | MUIObject#,Class$,Tag,Value [,Tag,Value...]
;MUIMakeObject MUIObject#,Type,&TagList | MUIObject#,Type,Tag,Value [,Tag,Value...]
;
;MUIHVSpace MUIObject#
;MUIHSpace MUIObject#,x
;MUIVSpace MUIObject#,x
;MUIString MUIObject#,Contents$,MaxLen
;MUIKeyString MUIObject#,Contents,MaxLen,ControlChar$
;MUICheckMark MUIObject#,Selected
;MUIKeyCheckMark MUIObject#,Selected,ControlChar$
;MUISimpleButton MUIObject#,Name$
;MUIKeyButton MUIObject#,Name$,Key$
;MUICycle MUIObject#, Entry$ [,Entry$...] | *Array
;MUIKeyCycle MUIObject#,Key$, Entry$ [,Entry$...] | *Array
;MUIRadio MUIObject#,Name$, Entry$ [,Entry$...] | *Array
;MUIKeyRadio MUIObject#,Key$,Name$, Entry$ [,Entry$...] | *Array
;MUISlider MUIObject#,Min,Max,Level
;MUIKeySlider MUIObject#,Min,Max,Level,Key$
;MUILabel MUIObject#,Label$,Flags
;MUINumericButton MUIObject#,Format$,Min,Max
;MUIListHook On|Off
;MUIList MUIObject#,Format$,Array$()
;MUIChangeList MUIObject# [,Array$(),Position]
;MUIListview To MUIObject#,MUIObject#
;MUIPopButton MUIObject#,Image
;MUIImageButton MUIObject#,Shape#
;MUIBalanceObject MUIObject#
;MUIBitmapObject MUIObject#,BitMap# [,Palette#]
;MUIShapeObject MUIObject#,Shape# [,Palette#]
;
;MUIChangeBitmap MUIObject#,Bitmap# [,Palette#]
;MUIChangeShape MUIObject#,Shape# [,Palette#]
;
;MUIAddObjHGroup To MUIObject#,MUIObject#
;MUICreateHGroup MUIObject#
;MUIAddObjVGroup To MUIObject#,MUIObject#
;MUICreateVGroup MUIObject#
;MUIAddObjPage To MUIObject#,MUIObject#
;MUICreatePage MUIObject# ,Page1$ [,Page2$...] | &Page$(0)
;
;MUIAddObjsHGroup To MUIObject#,MUIObject# [,MUIObject# [,...]]
;MUIAddObjsVGroup To MUIObject#,MUIObject# [,MUIObject# [,...]]
;MUIAddObjsPage To MUIObject#,MUIObject# [,MUIObject# [,...]]
;
;MUIInsertSingle MUIObject#,Position, Entry$ [,Entry$...] | *Array
;MUIRemoveSingle MUIObject#,Position
;MUIRedrawSingle MUIObject#,Position
;MUIListTitle MUIObject#, Title$ [,Title$...] | *Array
;
;MUISet MUIObject#,&TagList | MUIObject#,Attr,Value [,Attr,Value...]
;MUIGet (MUIObject#,Attribute)
;MUIRedraw MUIObject#,Flags
;
;MUIDoMethod MUIObject#, Method,Tag [,Tag] | &TagList
;MUINotify MUIObject#,Tag,Value,MUIObject#, Tag [,Tag...] | &TagList
;MUINotifyApp MUIObject#,Tag,Value,Return_ID
;MUIEvent
;MUIWaitEvent
;MUIFindUData To MUIObject#,MUIObject#,UserData
;
;*************
;*** TO DO ***
;*************
;
; - Another command : MUIGetString$ (and perhaps set...)
;
;************
;*** BUGS ***
;************
;
; - Some problems reported with 68060
;
; - Some problems with MUIChangeShape and MUIChangeBitmap
;
;****************
;*** Lib Init ***
;****************
.libinit:
#First_Compile=0 ;Set it to 1 if EFMUILib is not installed yet.
#rigtmenulib=37
#bbmuilib=8 ;Change it if 8 is not a free lib number
!libheader{#bbmuilib,init,0,finit,0}
!dumtoke{"MUIObject","A MUI object",_toke}
!astatement
!args {#long}
!libs
!subs {_setmaxtags,0,0}
!name {"MUISetMaximumTags","max"}
!astatement
!args {#string}
!libs
!subs {_apptitle,0,0}
!name {"MUIApplicationTitle","title$"}
!astatement
!args {#string}
!libs
!subs {_appver,0,0}
!name {"MUIApplicationVersion","ver$"}
!astatement
!args {#string}
!libs
!subs {_appcr,0,0}
!name {"MUIApplicationCopyright","copyright$"}
!astatement
!args {#string}
!libs
!subs {_appauthor,0,0}
!name {"MUIApplicationAuthor","author$"}
!astatement
!args {#string}
!libs
!subs {_appdesc,0,0}
!name {"MUIApplicationDescription","desc$"}
!astatement
!args {#string}
!libs
!subs {_appbase,0,0}
!name {"MUIApplicationBase","base$"}
!astatement
;
!repargs {0,1,#long}
!libs
!subs {_addapptags,0,0}
;
!args {#long}
!libs
!subs {_addapptagsa,0,0}
;
!name {"MUIAddApplicationTags","&TagList | Tag,Value [,Tag,Value...]"}
!acommand {#long}
!args
!libs
!subs {_createapp,0,0}
!name {"MUICreateApplication",""}
!astatement
!args
!libs
!subs {_removeapp,0,0}
!name {"MUIRemoveApplication",""}
!afunction {#long}
!args
!libs
!subs {_apploc,0,0}
!name {"MUIApplicationLoc",""}
!acommand {#long}
!args {#word}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_appobj,0,0}
!name {"MUIApplicationObj","To MUIObject#"}
!acommand {#long}
!args {#word}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_appwin,0,0}
!name {"MUIAddSubWindow","MUIObject#"}
!astatement
!args {#word}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_freeobj,0,0}
!name {"MUIFreeObject","MUIObject#"}
!acommand {#long}
;
!args {#word,#string,#string,#word}
!libs {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia0|#pd3}
!subs {_createwin,0,0}
;
!args {#word,#string,#string}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_createwin1,0,0}
;
!args {#word,#string}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_createwin2,0,0}
;
!name {"MUICreateWindow","MUIObject#,title$ [,id$ [,MUIObject#]]"}
!acommand {#word}
!args {#word}
!libs {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs {_openwin,0,0}
!name {"MUIOpenWindow","MUIObject#"}
!acommand {#word}
!args {#word}
!libs {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs {_closewin,0,0}
!name {"MUICloseWindow","MUIObject#"}
!astatement
;
!repargs {1,1,#word,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_addobjtags,0,0}
;
!args {#word,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_addobjtagsa,0,0}
;
!name {"MUIAddTags","MUIObject#,&TagList | MUIObject#,Tag,Value [,Tag,Value...]"}
!acommand {#long}
;
!repargs {2,1,#word,#string,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_muinewobj,0,0}
;
!args {#word,#string,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_muinewobja,0,0}
;
!name {"MUINewObject","MUIObject#,Class$,&TagList | MUIObject#,Class$,Tag,Value [,Tag,Value...]"}
!acommand {#long}
;
!repargs {2,1,#word,#long,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_muimakeobj,0,0}
;
!args {#word,#long,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_muimakeobja,0,0}
;
!name {"MUIMakeObject","MUIObject#,Type,&TagList | MUIObject#,Type,Tag,Value [,Tag,Value...]"}
!acommand {#long}
!args {#word}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_hvspace,0,0}
!name {"MUIHVSpace","MUIObject#"}
!acommand {#long}
!args {#word,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_hspace,0,0}
!name {"MUIHSpace","MUIObject#,x"}
!acommand {#long}
!args {#word,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_vspace,0,0}
!name {"MUIVSpace","MUIObject#,x"}
!acommand {#long}
!args {#word,#string,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_string,0,0}
!name {"MUIString","MUIObject#,Contents$,MaxLen"}
!acommand {#long}
!args {#word,#string,#long,#string}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_keystring,0,0}
!name {"MUIKeyString","MUIObject#,Contents$,MaxLen,ControlChar$"}
!acommand {#long}
!args {#word,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_checkmark,0,0}
!name {"MUICheckMark","MUIObject#,Selected"}
!acommand {#long}
!args {#word,#long,#string}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_keycheckmark,0,0}
!name {"MUIKeyCheckMark","MUIObject#,Selected,ControlChar$"}
!acommand {#long}
!args {#word,#string}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_simplebutton,0,0}
!name {"MUISimpleButton","MUIObject#,Name$"}
!acommand {#long}
!args {#word,#string,#string}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_keybutton,0,0}
!name {"MUIKeyButton","MUIObject#,Name$,Key$"}
!acommand {#long}
;
!args {#word,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_cyclea,0,0}
;
!repargs {1,1,#word,#string}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_cycle,0,0}
;
!name {"MUICycle","MUIObject#, Entry$ [,Entry$...] | *Array"}
!acommand {#long}
;
!args {#word,#string,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_keycyclea,0,0}
;
!repargs {2,1,#word,#string,#string}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_keycycle,0,0}
;
!name {"MUIKeyCycle","MUIObject#,Key$, Entry$ [,Entry$...] | *Array"}
!acommand {#long}
;
!args {#word,#string,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_radioa,0,0}
;
!repargs {2,1,#word,#string,#string}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_radio,0,0}
;
!name {"MUIRadio","MUIObject#,Name$, Entry$ [,Entry$...] | *Array"}
!acommand {#long}
;
!args {#word,#string,#string,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_keyradioa,0,0}
;
!repargs {3,1,#word,#string,#string,#string}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_keyradio,0,0}
;
!name {"MUIKeyRadio","MUIObject#,Name$,Key$, Entry$ [,Entry$...] | *Array"}
!acommand {#long}
!args {#word,#long,#long,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_slider,0,0}
!name {"MUISlider","MUIObject#,Min,Max,Level"}
!acommand {#long}
!args {#word,#long,#long,#long,#string}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_keyslider,0,0}
!name {"MUIKeySlider","MUIObject#,Min,Max,Level,Key$"}
!acommand {#long}
!args {#word,#string,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_label,0,0}
!name {"MUILabel","MUIObject#,Label$,Flags"}
!acommand {#long}
!args {#word,#word}
!libs {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia2|#pd1}
!subs {_addobjhgroup,0,0}
!name {"MUIAddObjHGroup","To MUIObject#,MUIObject#"}
!acommand {#long}
!args {#word}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_createhgroup,0,0}
!name {"MUICreateHGroup","MUIObject#"}
!acommand {#long}
!args {#word,#word}
!libs {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia2|#pd1}
!subs {_addobjvgroup,0,0}
!name {"MUIAddObjVGroup","To MUIObject#,MUIObject#"}
!acommand {#long}
!args {#word}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_createvgroup,0,0}
!name {"MUICreateVGroup","MUIObject#"}
!astatement
;
!args {#word,#long}
!libs {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs {_muiseta,0,0}
;
!repargs {1,1,#word,#long}
!libs {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs {_muiset,0,0}
;
!name {"MUISet","MUIObject#,&TagList | MUIObject#,Attr,Value [,Attr,Value...]"}
!afunction {#long}
!args {#word,#long}
!libs {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs {_muiget,0,0}
!name {"MUIGet","(MUIObject#,Attribute)"}
!acommand {#long}
;
!repargs {2,1,#word,#long,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_dmethod,0,0}
;
!args {#word,#long,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_dmethoda,0,0}
;
!name {"MUIDoMethod","MUIObject#,Method, Tag [,Tag...] | &TagList"}
!astatement
;
!repargs {4,1,#word,#long,#long,#word,#long}
!libs {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia0|#pd3}
!subs {_notify,0,0}
;
!args {#word,#long,#long,#word,#long}
!libs {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia0|#pd3}
!subs {_notifya,0,0}
;
!name {"MUINotify","MUIObject#,Tag,Value,MUIObject#, Tag [,Tag...] | &TagList"}
!afunction {#long}
!args
!libs
!subs {_event,0,0}
!name {"MUIEvent",""}
!afunction {#long}
!args
!libs
!subs {_waitevent,0,0}
!name {"MUIWaitEvent",""}
!acommand {#long}
!args {#word,#string,#long,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_numbutton,0,0}
!name {"MUINumericButton","MUIObject#,Format$,Min,Max"}
!acommand {#long}
!args {#word,#word}
!libs {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia2|#pd1}
!subs {_addobjpage,0,0}
!name {"MUIAddObjPage","To MUIObject#,MUIObject#"}
!acommand {#long}
;
!args {#word,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_createpagea,0,0}
;
!repargs {1,1,#word,#string}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_createpage,0,0}
;
!name {"MUICreatePage","MUIObject# ,Page1$ [,Page2$...] | &Page$(0)"}
!acommand {#long}
;
!args {#word,#string,#array}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_list,0,0}
;
!name {"MUIList","MUIObject#,Format$,Array$()"}
!acommand {#long}
!args {#word,#word}
!libs {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia0|#pd1}
!subs {_listview,0,0}
!name {"MUIListView","To MUIObject#,MUIObject#"}
!afunction {#long}
!args {#word}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_objloc,0,0}
!name {"MUIObjLoc","(MUIObject#)"}
!acommand {#long}
;
!args {#word,#long,#string,#string,#string}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_request,0,0}
;
!repargs {5,1,#word,#long,#string,#string,#string,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_request,0,0}
;
!name {"MUIRequest","To MUIObject#,Flags,Title$,Gadgets$,Format$ [,Param...]"}
!acommand {#long}
!args {#word,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_popbutton,0,0}
!name {"MUIPopButton","MUIObject#,Image"}
!acommand {#long}
!args {#word,#word}
!libs {#bbmuilib,#ia3|#pd0,#shapeslib,#ia0|#pd1}
!subs {_imagebutton,0,0}
!name {"MUIImageButton","MUIObject#,Shape#"}
!acommand {#long}
;
!args {#word,#long,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_insertsinglea,0,0}
;
!repargs {2,1,#word,#long,#string}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_insertsingle,0,0}
;
!name {"MUIInsertSingle","MUIObject#,Position, Entry$ [,Entry$...] | *Array"}
!acommand {#long}
!args {#word,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_removesingle,0,0}
!name {"MUIRemoveSingle","MUIObject#,Position"}
!acommand {#long}
!args {#word,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_redrawsingle,0,0}
!name {"MUIRedrawSingle","MUIObject#,Position"}
!acommand {#long}
;
!args {#word,#long}
!libs {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs {_listtitlea,0,0}
;
!repargs {1,1,#word,#string}
!libs {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs {_listtitle,0,0}
;
!name {"MUIListTitle","MUIObject#, Title$ [,Title$...] | *Array"}
!acommand {#long}
;
!args {#word,#word,#long}
!libs {#bbmuilib,#ia3|#pd0,#rigtmenulib,#ia2|#pd1}
!subs {_createmenu,0,0}
;
!repargs {3,1,#word,#word,#long,#long}
!libs {#bbmuilib,#ia3|#pd0,#rigtmenulib,#ia1|#pd1}
!subs {_createmenud,0,0}
;
!name {"MUICreateMenu","MUIObject#,GTMenuList#,Flags [,TitleUData1 [,...]]"}
!acommand {#long}
!args {#word,#word}
!libs {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia2|#pd1}
!subs {_setmenu,0,0}
!name {"MUISetMenu","To MUIObject#,MUIObject#"}
!acommand {#long}
!args {#word,#word,#long}
!libs {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia2|#pd1}
!subs {_findudata,0,0}
!name {"MUIFindUData","To MUIObject#,MUIObject#,UserData"}
!acommand {#long}
!args {#word}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_balance,0,0}
!name {"MUIBalanceObject","MUIObject#"}
!astatement
!args {#word,#long,#long,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_notifyapp,0,0}
!name {"MUINotifyApp","MUIObject#,Tag,Value,ReturnID"}
CNIF #First_Compile=0
!astatement
!repargs {1,1,#word,#word}
!libs
!subs {_addobjh,0,0}
!name {"MUIAddObjsHGroup","To MUIObject#,MUIObject# [,MUIObject# [,...]]"}
!astatement
!repargs {1,1,#word,#word}
!libs
!subs {_addobjv,0,0}
!name {"MUIAddObjsVGroup","To MUIObject#,MUIObject# [,MUIObject# [,...]]"}
!astatement
!repargs {1,1,#word,#word}
!libs
!subs {_addobjp,0,0}
!name {"MUIAddObjsPage","To MUIObject#,MUIObject# [,MUIObject# [,...]]"}
CEND
!acommand {#long}
;
!args {#word,#word}
!libs {#bbmuilib,#ia3|#pd0,#bitmaplib,#ia2|#pd1}
!subs {_bitmap,0,0}
;
!args {#word,#word,#word}
!libs {#bbmuilib,#ia3|#pd0,#bitmaplib,#ia2|#pd1,#palettelib,#ia0|#pd2}
!subs {_bitmappal,0,0}
;
!name {"MUIBitmapObject","MUIObject#,BitMap# [,Palette#]"}
!acommand {#long}
;
!args {#word,#word}
!libs {#bbmuilib,#ia3|#pd0,#shapeslib,#ia2|#pd1}
!subs {_shape,0,0}
;
!args {#word,#word,#word}
!libs {#bbmuilib,#ia3|#pd0,#shapeslib,#ia2|#pd1,#palettelib,#ia0|#pd2}
!subs {_shapepal,0,0}
;
!name {"MUIShapeObject","MUIObject#,Shape# [,Palette#]"}
!acommand {#long}
;
!args {#word,#word}
!libs {#bbmuilib,#ia3|#pd0,#bitmaplib,#ia2|#pd1,#intuitionlib,#la6}
!subs {_chbitmap,0,0}
;
!args {#word,#word,#word}
!libs {#bbmuilib,#ia3|#pd0,#bitmaplib,#ia2|#pd1,#palettelib,#ia0|#pd2,#intuitionlib,#la6}
!subs {_chbitmappal,0,0}
;
!name {"MUIChangeBitmap","MUIObject#,BitMap# [,Palette#]"}
!acommand {#long}
;
!args {#word,#word}
!libs {#bbmuilib,#ia3|#pd0,#shapeslib,#ia2|#pd1,#intuitionlib,#la6}
!subs {_chshape,0,0}
;
!args {#word,#word,#word}
!libs {#bbmuilib,#ia3|#pd0,#shapeslib,#ia2|#pd1,#palettelib,#ia0|#pd2,#intuitionlib,#la6}
!subs {_chshapepal,0,0}
;
!name {"MUIChangeShape","MUIObject#,Shape# [,Palette#]"}
!acommand {#long}
!args {#word,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_redraw,0,0}
!name {"MUIRedraw","MUIObject#,Flags"}
!astatement
!args {#long}
!libs
!subs {_listhook,0,0}
!name {"MUIListHook","On|Off"}
!acommand {#long}
;
!args {#word}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_chlist,0,0}
;
!args {#word,#array,#long}
!libs {#bbmuilib,#ia3|#pd0}
!subs {_chlista,0,0}
;
!name {"MUIChangeList","MUIObject# [,Array$(),Position]"}
_load:!nullsub{0,0,0}
_save:!nullsub{0,0,0}
_use:!nullsub{0,0,0}
_free:!nullsub{_freeobj,0,0}
init:!nullsub{_codeinit,0,0}
finit:!nullsub{_codefinit,0,0}
!libfin{_toke,_load,_save,_use,_free,50,5}
.libfinit
;***************
;*** DEFINES ***
;***************
#_LVOOpenLibrary=-552
#_LVOCloseLibrary=-414
Macro CALLEXEC
MOVEA.l 4,a6
JSR _LVO`1(a6)
End Macro
#_LVOMUI_NewObjectA=-30 ;(class,tags)(a0,a1)
#_LVOMUI_DisposeObject=-36 ;(obj)(a0)
#_LVOMUI_RequestA=-42 ;(app,win,flags,title,gadgets,format,params)(d0,d1,d2,a0,a1,a2,a3)
#_LVOMUI_AllocAslRequest=-48 ;(type,tags)(d0,a0)
#_LVOMUI_AslRequest=-54 ;(req,tags)(a0,a1)
#_LVOMUI_FreeAslRequest=-60 ;(req)(a0)
#_LVOMUI_Error=-66 ;()()
#_LVOMUI_SetError=-72 ;(errnum)(d0)
#_LVOMUI_GetClass=-78 ;(name)(a0)
#_LVOMUI_FreeClass=-84 ;(cl)(a0)
#_LVOMUI_RequestIDCMP=-90 ;(obj,flags)(a0,d0)
#_LVOMUI_RejectIDCMP=-96 ;(obj,flags)(a0,d0)
#_LVOMUI_Redraw=-102 ;(obj,flags)(a0,d0)
#_LVOMUI_CreateCustomClass=-108 ;(base,supername,supermcc,datasize,dispatcher)(a0,a1,a2,d0,a3)
#_LVOMUI_DeleteCustomClass=-114 ;(mcc)(a0)
#_LVOMUI_MakeObjectA=-120 ;(Type,params)(d0,a0)
#_LVOMUI_Layout=-126 ;(obj,l,t,w,h,flags)(a0,d0,d1,d2,d3,d4)
#_LVOMUI_ObtainPen=-156 ;(mri,spec,flags)(a0,a1,d0)
#_LVOMUI_ReleasePen=-162 ;(mri,pen)(a0,d0)
#_LVOMUI_AddClipping=-168 ;(mri,l,t,w,h)(a0,d0,d1,d2,d3)
#_LVOMUI_RemoveClipping=-174 ;(mri,h)(a0,a1)
#_LVOMUI_AddClipRegion=-180 ;(mri,region)(a0,a1)
#_LVOMUI_RemoveClipRegion=-186 ;(mri,region)(a0,a1)
#_LVOMUI_BeginRefresh=-192 ;(mri,flags)(a0,d0)
#_LVOMUI_EndRefresh=-198 ;(mri,flags)(a0,d0)
Macro CALLMUI
MOVEA.l _MUIBase(pc),a6
JSR _LVO`1(a6)
End Macro
Macro MUINAME
Dc.b "muimaster.library",0
End Macro
Macro OPENLIB
LEA `1(pc),a1
MOVEQ #0,d0
!CALLEXEC {OpenLibrary}
MOVE.l d0,`2
End Macro
Macro CLOSELIB
MOVEA.l `1(pc),a1
!CALLEXEC {CloseLibrary}
End Macro
NEWTYPE.MUIObject
adr.l ;0:Address of the object
kind.w ;4:Kind of the object
tagl.l ;6:Address of the taglist
tagp.w ;10:Pointer of the taglist
size.w ;12:Size of the taglist
special.l ;14:Special Info
spesize.w ;18:Special Info size
spe2.l ;20:Special Info 2 (Hook)
spe2size.w ;24:Special Info 2 size
End NEWTYPE ;26:sizeof
#kind_nothing=-1
#kind_app=0
#kind_win=1
#kind_menu=2
#kind_gadget=3
#kind_label=4
#kind_other=5
Macro s
SizeOf.MUIObject\`1(a3)
End Macro
Macro t
SizeOf.MUIObject\`1(a2)
End Macro
Macro u
SizeOf.MUIObject\`1(a0)
End Macro
NEWTYPE.SubStruct
*NextSub.SubStruct
*Name.b
pad1.l
Flags.w
*Key.b
pad2.l
MutualExclude.l
*UserData.b
End NEWTYPE
NEWTYPE.ItemStruct
*_NextItem.ItemStruct
*Name.b
pad1.l
Flags.w
*Key.b
*FirstSub.SubStruct
MutualExclude.l
*UserData.b
End NEWTYPE
NEWTYPE.TitleStruct
*NextTitle.TitleStruct
*Name.b
*_FirstItem.ItemStruct
End NEWTYPE
NEWTYPE.GTMenuList
*_MenuList.l
*MenuLookup.TitleStruct
numitems.w
End NEWTYPE
Macro gl
SizeOf.GTMenuList\`1(a2)
End Macro
Macro ggl
SizeOf.GTMenuList\`1(a1)
End Macro
Macro ts
SizeOf.TitleStruct\`1(a2)
End Macro
Macro tts
SizeOf.TitleStruct\`1(a3)
End Macro
Macro is
SizeOf.ItemStruct\`1(a0)
End Macro
Macro ss
SizeOf.SubStruct\`1(a0)
End Macro
;************
;*** CODE ***
;************
.
._codeinit:
MOVEM.l d0-d1/a1/a6,-(a7)
LEA muiname(pc),a1
MOVEQ #0,d0
MOVEA.l 4,a6
JSR _LVOOpenLibrary(a6)
MOVE.l d0,_MUIBase
BEQ initerr
MOVE.l #160,d0
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,apptags
BEQ initerr
'ok: MOVE.w #0,apptap
MOVEM.l (a7)+,d0-d1/a1/a6
RTS
._codefinit:
MOVEM.l d0/a1/a6,-(a7)
BSR _removeapp
MOVE.l _MUIBase(pc),d0
BEQ 'nolib
MOVEA.l d0,a1
MOVEA.l 4,a6
JSR _LVOCloseLibrary(a6)
CLR.l _MUIBase
'nolib: MOVEM.l (a7)+,d0/a1/a6
RTS
muiname: Dc.b "muimaster.library",0
Even
_setmaxtags:
MOVE.l d0,maxt
RTS
.
_apptitle:
MOVEA.l apptags(pc),a1
MOVE.w apptap(pc),d2
ADDA.w d2,a1
MOVE.l #MUIA_Application_Title,(a1)+
MOVE.l -(a2),d1
ALibJsr $cf01
MOVE.l d0,(a1)+
ADDQ.w #8,d2
MOVE.w d2,apptap
RTS
_appver:
MOVEA.l apptags(pc),a1
MOVE.w apptap(pc),d2
ADDA.w d2,a1
MOVE.l #MUIA_Application_Version,(a1)+
MOVE.l -(a2),d1
ALibJsr $cf01
MOVE.l d0,(a1)+
ADDQ.w #8,d2
MOVE.w d2,apptap
RTS
_appcr:
MOVEA.l apptags(pc),a1
MOVE.w apptap(pc),d2
ADDA.w d2,a1
MOVE.l #MUIA_Application_Copyright,(a1)+
MOVE.l -(a2),d1
ALibJsr $cf01
MOVE.l d0,(a1)+
ADDQ.w #8,d2
MOVE.w d2,apptap
RTS
_appauthor:
MOVEA.l apptags(pc),a1
MOVE.w apptap(pc),d2
ADDA.w d2,a1
MOVE.l #MUIA_Application_Author,(a1)+
MOVE.l -(a2),d1
ALibJsr $cf01
MOVE.l d0,(a1)+
ADDQ.w #8,d2
MOVE.w d2,apptap
RTS
_appdesc:
MOVEA.l apptags(pc),a1
MOVE.w apptap(pc),d2
ADDA.w d2,a1
MOVE.l #MUIA_Application_Description,(a1)+
MOVE.l -(a2),d1
ALibJsr $cf01
MOVE.l d0,(a1)+
ADDQ.w #8,d2
MOVE.w d2,apptap
RTS
_appbase:
MOVEA.l apptags(pc),a1
MOVE.w apptap(pc),d2
ADDA.w d2,a1
MOVE.l #MUIA_Application_Base,(a1)+
MOVE.l -(a2),d1
ALibJsr $cf01
MOVE.l d0,(a1)+
ADDQ.w #8,d2
MOVE.w d2,apptap
RTS
_apploc:
MOVE.l #appstruct,d0
RTS
_appobj:
MOVE.l apptags(pc),!s{tagl}
MOVE.w apptap(pc),!s{tagp}
MOVE.l appaddr(pc),!s{adr}
MOVE.w #kind_app,!s{kind}
MOVE.l #160,!s{size}
RTS
_appwin: ;a3=MUIObject=>Window
TST.l !s{adr}
BEQ 'nowin
MOVEQ #0,d0
CMP.w #kind_win,!s{kind}
BNE 'nowin
MOVEA.l apptags(pc),a1
MOVE.w apptap(pc),d0
ADDA.w d0,a1
MOVE.l #SubWindow,(a1)+
MOVE.l !s{adr},(a1)+
ADDQ.w #8,d0
MOVE.w d0,apptap
MOVE.l #-1,d0
'nowin: RTS
._addapptags:
MOVEA.l apptags(pc),a1
MOVE.w apptap(pc),d0
ADDA.w d0,a1
SUBQ #1,d7
'loop: MOVE.l -(a2),(a1)+
ADDQ.w #4,d0
DBF d7,'loop
MOVE.w d0,apptap
RTS
_addapptagsa: ;d0=&taglist
MOVEA.l d0,a0
BEQ 'notags
MOVEA.l apptags(pc),a1
MOVE.l a1,d0
MOVE.w apptap(pc),d1
ADDA.w d1,a1
'loop: MOVE.l (a0)+,(a1)+
BNE 'loop
SUBA.l d0,a1
MOVE.w d0,apptap
'notags:RTS
._createapp:
LEA appclass(pc),a0
MOVE.l apptags(pc),d0
BEQ 'noapp
MOVEA.l d0,a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,appaddr
BEQ 'noapp
MOVE.l #-1,d0
'noapp: RTS
._removeapp:
MOVE.l appaddr(pc),d0
BEQ 'noapp
MOVEA.l d0,a0
!CALLMUI {MUI_DisposeObject}
CLR.l appaddr
'noapp: RTS
.
_createwin2:
MOVEQ #0,d2
_createwin1:
SUBA.l a0,a0
._createwin: ;d1=title$ d2=id$ a0=MUIObject# (WindowsContents)
TST.l 6(a3)
BEQ 'notl
MOVEA.l 6(a3),a1
MOVE.w 10(a3),d6
ADDA.w d6,a1
MOVE.l #MUIA_Window_Title,(a1)+
MOVE.l d1,d0
MOVE.l -4(a2),d1
ALibJsr $cf01
MOVE.l d0,(a1)+
ADDQ.w #8,d6
TST.l d2
BEQ 'noid
MOVE.l #MUIA_Window_ID,(a1)+
MOVE.l a0,-(a7)
MOVE.l d2,a0
MOVE.l (a0),d2
MOVE.l d2,(a1)+
MOVEA.l (a7)+,a0
ADDQ.w #8,d6
'noid: TST.l (a0)
BEQ 'noobj
MOVE.l #WindowContents,(a1)+
MOVE.l (a0),(a1)+
ADDQ.w #8,d6
'noobj: MOVEA.l !s{tagl},a1
MOVE.w d6,10(a3)
MOVEQ #0,d0
LEA winclass(pc),a0
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,(a3)
BEQ 'nowin
MOVE.w #kind_win,!s{kind}
MOVE.l #-1,d0
BRA 'nowin
'notl:
TST.l (a0)
BEQ 'nowin
MOVEM.l d1-d2/a2-a3,-(a7)
MOVE.l maxt(pc),d0
LSL.l #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVEM.l (a7)+,d1-d2/a2-a3
MOVE.l d0,6(a3)
BEQ 'nowin
MOVEA.l d0,a1
MOVE.l #MUIA_Window_Title,(a1)+
MOVE.l d1,d0
MOVE.l -4(a2),d1
ALibJsr $cf01
MOVE.l d0,(a1)+
MOVE.l #MUIA_Window_ID,(a1)+
MOVE.l a0,-(a7)
MOVE.l d2,a0
MOVE.l (a0),d2
MOVE.l d2,(a1)+
MOVEA.l (a7)+,a0
MOVE.l #WindowContents,(a1)+
MOVE.l (a0),(a1)+
MOVE.w #24,10(a3)
MOVEA.l 6(a3),a1
LEA winclass(pc),a0
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,(a3)
BEQ 'nowin
MOVE.w #kind_win,4(a3)
MOVE.l #-1,d0
'nowin:
RTS
._openwin:
MOVE.l a6,_IntuiBase
MOVEQ #0,d0
CMP.w #kind_win,4(a3)
BNE 'nowin
MOVE.l (a3),d0
BEQ 'nowin
MOVE.l #MUIA_Window_Open,d1
MOVEQ #1,d2
BSR _set
MOVE.l #-1,d0
'nowin: RTS
._closewin:
MOVE.l a6,_IntuiBase
MOVEQ #0,d0
CMP.w #kind_win,4(a3)
BNE 'nowin
MOVE.l (a3),d0
BEQ 'nowin
MOVE.l #MUIA_Window_Open,d1
MOVEQ #0,d2
BSR _set
MOVE.l #-1,d0
'nowin: RTS
.
._createmenu: ;a2=gtml a3=mo d2=f
BSR _freeobj
MOVE.w !gl{numitems},d0
ADDQ.w #1,d0
MULU.w #20,d0
MOVE.w d0,!s{spesize}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{special}
BEQ 'noobj
MOVEA.l d0,a1
MOVEA.l !gl{MenuLookup},a2
'tit: MOVE.b #1,(a1)
MOVE.l !ts{Name},2(a1)
ADDA.l #20,a1
TST.l !ts{_FirstItem}
BEQ 'nxtti
MOVEA.l !ts{_FirstItem},a0
'ite: MOVE.b #2,(a1)
MOVE.l !is{Name},2(a1)
MOVE.l !is{Key},6(a1)
MOVE.w !is{Flags},10(a1)
MOVE.l !is{MutualExclude},12(a1)
MOVE.l !is{UserData},16(a1)
ADDA.l #20,a1
TST.l !is{FirstSub}
BEQ 'nxtit
MOVE.l a0,-(a7)
MOVEA.l !is{FirstSub},a0
'su: MOVE.b #3,(a1)
MOVE.l !ss{Name},2(a1)
MOVE.l !ss{Key},6(a1)
MOVE.w !ss{Flags},10(a1)
MOVE.l !ss{MutualExclude},12(a1)
MOVE.l !ss{UserData},16(a1)
ADDA.l #20,a1
TST.l !ss{NextSub}
BEQ 'nxti
MOVEA.l !ss{NextSub},a0
BRA 'su
'nxti: MOVEA.l (a7)+,a0
'nxtit: TST.l !is{_NextItem}
BEQ 'nxtti
MOVEA.l !is{_NextItem},a0
BRA 'ite
'nxtti: MOVE.l !ts{NextTitle},d0
BEQ 'fin
MOVEA.l d0,a2
BRA 'tit
'fin: MOVE.b #0,(a1)
LEA args(pc),a0
MOVE.l a0,d1
MOVE.l !s{special},(a0)+
MOVE.l d2,(a0)+
MOVE.l #0,(a0)+
MOVEA.l d1,a0
MOVE.l #MUIO_MenustripNM,d0
!CALLMUI {MUI_MakeObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
CLR.l !s{tagl}
CLR.w !s{size}
MOVE.w #kind_menu,!s{kind}
MOVE.l #-1,d0
'noobj:
RTS
_createmenud: ;a1=gtml a3=mo d2=f (a2)=ud
BSR _freeobj
MOVE.w !ggl{numitems},d0
ADDQ.w #1,d0
MULU.w #20,d0
MOVE.w d0,!s{spesize}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{special}
BEQ 'noobj
MOVE.l a3,-(a7)
MOVEA.l !ggl{MenuLookup},a3
MOVEA.l d0,a1
'tit: MOVE.b #1,(a1)
MOVE.l !tts{Name},2(a1)
MOVE.l -(a2),16(a1)
ADDA.l #20,a1
TST.l !tts{_FirstItem}
BEQ 'nxtti
MOVEA.l !tts{_FirstItem},a0
'ite: MOVE.b #2,(a1)
MOVE.l !is{Name},2(a1)
MOVE.l !is{Key},6(a1)
MOVE.w !is{Flags},10(a1)
MOVE.l !is{MutualExclude},12(a1)
MOVE.l !is{UserData},16(a1)
ADDA.l #20,a1
TST.l !is{FirstSub}
BEQ 'nxtit
MOVE.l a0,-(a7)
MOVEA.l !is{FirstSub},a0
'su: MOVE.b #3,(a1)
MOVE.l !ss{Name},2(a1)
MOVE.l !ss{Key},6(a1)
MOVE.w !ss{Flags},10(a1)
MOVE.l !ss{MutualExclude},12(a1)
MOVE.l !ss{UserData},16(a1)
ADDA.l #20,a1
TST.l !ss{NextSub}
BEQ 'nxti
MOVEA.l !ss{NextSub},a0
BRA 'su
'nxti: MOVEA.l (a7)+,a0
'nxtit: TST.l !is{_NextItem}
BEQ 'nxtti
MOVEA.l !is{_NextItem},a0
BRA 'ite
'nxtti: MOVE.l !tts{NextTitle},d0
BEQ 'fin
MOVEA.l d0,a3
BRA 'tit
'fin: MOVEA.l (a7)+,a3
MOVE.b #0,(a1)
LEA args(pc),a0
MOVE.l a0,d1
MOVE.l !s{special},(a0)+
MOVE.l d2,(a0)+
MOVE.l #0,(a0)+
MOVEA.l d1,a0
MOVE.l #MUIO_MenustripNM,d0
!CALLMUI {MUI_MakeObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
CLR.l !s{tagl}
CLR.w !s{size}
MOVE.w #kind_menu,!s{kind}
MOVE.l #-1,d0
'noobj:
RTS
._setmenu: ;a3=win a2=menu
TST.l !s{adr}
BNE 'noobj
TST.l !t{adr}
BEQ 'noobj
CMP.w #kind_menu,!t{kind}
BNE 'noobj
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL.l #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #MUIA_Window_Menustrip,(a1)+
MOVE.l !t{adr},(a1)+
ADD.w #8,d6
MOVE.w d6,!s{tagp}
'noobj: RTS
.
._objloc:
MOVE.l !s{adr},d0
RTS
.
._request: ;(win,flags,&title$,&gadget$,&format$,params)(a3,d1,d2,d3,d4,-12(a2))
MOVEQ #0,d0
TST.l appaddr
BEQ 'noobj
TST.l !s{adr}
BEQ 'noobj
CMP.w #kind_win,!s{kind}
BNE 'noobj
MOVE.l d1,d5
MOVE.l d2,d0
MOVE.l -(a2),d1
ALibJsr $cf01
MOVEA.l d0,a0
MOVE.l d0,s0
MOVE.l d3,d0
MOVE.l -(a2),d1
ALibJsr $cf01
MOVEA.l d0,a1
MOVE.l d0,s1
MOVE.l d4,d0
MOVE.l -(a2),d1
ALibJsr $cf01
MOVE.l d0,s2
MOVE.l !s{adr},d1
MOVE.l d5,d2
SUBA.l a3,a3
TST.w d7
BLE 'noparams
LEA args(pc),a3
MOVE.l a3,d6
SUBQ #1,d7
'loop: MOVE.l -(a2),(a3)+
DBF d7,'loop
MOVE.l #0,(a3)+
MOVEA.l d6,a3
'noparams:
MOVEA.l s2,a2
MOVE.l appaddr(pc),d0
!CALLMUI {MUI_RequestA} ;(app,win,flags,title,gadgets,format,params)(d0,d1,d2,a0,a1,a2,a3)
MOVE.l d0,d5
MOVE.l s0,d0
ALibJsr $cf02
MOVE.l s1,d0
ALibJsr $cf02
MOVE.l s2,d0
ALibJsr $cf02
MOVE.l d5,d0
'noobj: RTS
.
._addobjtags:
TST.l 6(a3)
BEQ 'notl
MOVEA.l 6(a3),a1
MOVE.w 10(a3),d0
ADDA.w d0,a1
SUBQ #1,d7
'loop: MOVE.l -(a2),(a1)+
ADDQ.w #4,d0
DBF d7,'loop
MOVE.w d0,10(a3)
BRA 'nomem
'notl: MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,6(a3)
BEQ 'nomem
MOVE.w #0,10(a3)
MOVEA.l d0,a1
MOVEQ #0,d0
SUBQ #1,d7
'loop1: MOVE.l -(a2),(a1)+
ADDQ.w #4,d0
DBF d7,'loop1
MOVE.w d0,10(a3)
'nomem: RTS
_addobjtagsa:
TST.l !s{tagl}
BEQ 'notl
MOVEA.l !s{tagl},a1
ADDA.w d0,a1
MOVEA.l d1,a0
MOVEA.l (a0),a0
'loop: MOVE.l (a0)+,(a1)+
BNE 'loop
MOVE.l !s{tagl},d0
SUBA.l d0,a1
MOVE.w d0,!s{tagp}
BRA 'nomem
'notl: MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l d1,-(a7)
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l (a7)+,d1
MOVE.l d0,!s{tagl}
BEQ 'nomem
MOVEA.l d0,a1
MOVEA.l d1,a0
MOVEA.l (a0),a0
'loop1: MOVE.l (a0)+,(a1)+
BNE 'loop1
MOVE.l !s{tagl},d0
SUBA.l d0,a1
MOVE.w !s{tagp},d1
ADD.w d0,d1
MOVE.w d1,!s{tagp}
'nomem: RTS
.
._muinewobj:
MOVEA.l d1,a0
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'err
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
SUBQ #1,d7
TST.l -(a2)
'loop: MOVE.l -(a2),(a1)+
ADDQ.w #4,d6
DBF d7,'loop
MOVE.w d6,!s{tagp}
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'err
MOVE.l #-1,d0
'err: RTS
_muinewobja:
MOVEA.l d1,a0
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'err
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVEA.l d2,a2
'loop: MOVE.l (a2)+,(a1)+
BNE 'loop
MOVE.l !s{tagl},d6
SUBA.l d6,a1
MOVE.w d6,!s{tagp}
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'err
MOVE.l #-1,d0
'err: RTS
._muimakeobj:
MOVE.l d1,-(a7)
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'err
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
SUBQ #1,d7
'loop: MOVE.l -(a2),(a1)+
ADDQ.w #4,d6
DBF d7,'loop
MOVE.w d6,!s{tagp}
MOVE.l (a7)+,d0
MOVEA.l !s{tagl},a0
!CALLMUI {MUI_MakeObjectA}
MOVE.l d0,!s{adr}
BEQ 'err
MOVE.l #-1,d0
'err: RTS
_muimakeobja:
MOVE.l d1,-(a7)
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'err
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVEA.l d2,a2
'loop: MOVE.l (a2)+,(a1)+
BNE 'loop
MOVE.l !s{tagl},d6
SUBA.l d6,a1
MOVE.w d6,!s{tagp}
MOVE.l (a7)+,d0
MOVEA.l !s{tagl},a0
!CALLMUI {MUI_MakeObjectA}
MOVE.l d0,!s{adr}
BEQ 'err
MOVE.l #-1,d0
'err: RTS
.
._muimacros:
_hvspace:
LEA rectangleclass(pc),a0
SUBA.l a1,a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
CLR.l !s{tagl}
CLR.l !s{size}
MOVE.w #kind_other,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_hspace:
MOVE.l #MUIO_HSpace,d0
MOVE.l d1,a0
!CALLMUI {MUI_MakeObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
CLR.l !s{tagl}
CLR.w !s{size}
MOVE.w #kind_other,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_vspace:
MOVE.l #MUIO_VSpace,d0
MOVE.l d1,a0
!CALLMUI {MUI_MakeObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
CLR.l !s{tagl}
CLR.w !s{size}
MOVE.w #kind_other,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_string:
MOVE.l d1,d5
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #MUIA_Frame,(a1)+
MOVE.l #MUIV_Frame_String,(a1)+
MOVE.l #MUIA_String_MaxLen,(a1)+
MOVE.l d2,(a1)+
MOVE.l #MUIA_String_Contents,(a1)+
MOVE.l d5,(a1)+
ADD.w #24,d6
MOVE.w d6,!s{tagp}
LEA stringclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_keystring:
MOVE.l d1,d5
MOVEA.l d3,a0
MOVEQ #0,d3
MOVE.b (a0),d3
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #MUIA_Frame,(a1)+
MOVE.l #MUIV_Frame_String,(a1)+
MOVE.l #MUIA_ControlChar,(a1)+
MOVE.l d3,(a1)+
MOVE.l #MUIA_String_MaxLen,(a1)+
MOVE.l d2,(a1)+
MOVE.l #MUIA_String_Contents,(a1)+
MOVE.l d5,(a1)+
ADD.w #32,d6
MOVE.w d6,!s{tagp}
LEA stringclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_checkmark:
MOVE.l d1,d5
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #MUIA_Frame,(a1)+
MOVE.l #MUIV_Frame_ImageButton,(a1)+
MOVE.l #MUIA_InputMode,(a1)+
MOVE.l #MUIV_InputMode_Toggle,(a1)+
MOVE.l #MUIA_Image_Spec,(a1)+
MOVE.l #MUII_CheckMark,(a1)+
MOVE.l #MUIA_Image_FreeVert,(a1)+
MOVE.l #1,(a1)+
MOVE.l #MUIA_Selected,(a1)+
MOVE.l d5,(a1)+
MOVE.l #MUIA_Background,(a1)+
MOVE.l #MUII_ButtonBack,(a1)+
MOVE.l #MUIA_ShowSelState,(a1)+
MOVE.l #0,(a1)+
ADD.w #56,d6
MOVE.w d6,!s{tagp}
LEA imageclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_keycheckmark:
MOVE.l d1,d5
MOVEA.l d2,a0
MOVEQ #0,d2
MOVE.b (a0),d2
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #MUIA_Frame,(a1)+
MOVE.l #MUIV_Frame_ImageButton,(a1)+
MOVE.l #MUIA_InputMode,(a1)+
MOVE.l #MUIV_InputMode_Toggle,(a1)+
MOVE.l #MUIA_Image_Spec,(a1)+
MOVE.l #MUII_CheckMark,(a1)+
MOVE.l #MUIA_Image_FreeVert,(a1)+
MOVE.l #1,(a1)+
MOVE.l #MUIA_Selected,(a1)+
MOVE.l d5,(a1)+
MOVE.l #MUIA_Background,(a1)+
MOVE.l #MUII_ButtonBack,(a1)+
MOVE.l #MUIA_ShowSelState,(a1)+
MOVE.l #0,(a1)+
MOVE.l #MUIA_ControlChar,(a1)+
MOVE.l d2,(a1)+
ADD.w #64,d6
MOVE.w d6,!s{tagp}
LEA imageclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_simplebutton:
MOVE.l d1,str
BSR _freeobj
LEA str(pc),a0
MOVE.l #MUIO_Button,d0
!CALLMUI {MUI_MakeObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
CLR.l !s{tagl}
CLR.w !s{size}
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_keybutton:
MOVE.l d1,d0
MOVE.l -4(a2),d1
ALibJsr $cf01
MOVE.l d0,d5
MOVEA.l d2,a0
MOVEQ #0,d2
MOVE.b (a0),d2
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #MUIA_Frame,(a1)+
MOVE.l #MUIV_Frame_Button,(a1)+
MOVE.l #MUIA_Font,(a1)+
MOVE.l #MUIV_Font_Button,(a1)+
MOVE.l #MUIA_Text_Contents,(a1)+
MOVE.l d5,(a1)+
MOVE.l #MUIA_Text_PreParse,(a1)+
LEA cenc(pc),a0
MOVE.l a0,d0
MOVE.l #4,d1
ALibJsr $cf01
MOVE.l d0,(a1)+
MOVE.l #MUIA_Text_HiChar,(a1)+
MOVE.l d2,(a1)+
MOVE.l #MUIA_ControlChar,(a1)+
MOVE.l d2,(a1)+
MOVE.l #MUIA_InputMode,(a1)+
MOVE.l #MUIV_InputMode_RelVerify,(a1)+
MOVE.l #MUIA_Background,(a1)+
MOVE.l #MUII_ButtonBack,(a1)+
ADD.w #64,d6
MOVE.w d6,!s{tagp}
LEA textclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_cycle:
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #20,d0
LSL #2,d0
MOVE.w d0,!s{spesize}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{special}
BEQ 'noobj
MOVEA.l d0,a0
SUBQ #1,d7
'loop: MOVE.l -(a2),d1
MOVE.l -(a2),d0
ALibJsr $cf01
MOVE.l d0,(a0)+
DBF d7,'loop
MOVE.l #0,(a0)
MOVE.l #MUIA_Font,(a1)+
MOVE.l #MUIV_Font_Button,(a1)+
MOVE.l #MUIA_Cycle_Entries,(a1)+
MOVE.l !s{special},(a1)+
ADD.w #16,d6
MOVE.w d6,!s{tagp}
LEA cycleclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_cyclea:
MOVE.l d1,d5
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
CLR.w !s{tagp}
'tlok:
MOVEA.l !s{tagl},a1
MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #MUIA_Font,(a1)+
MOVE.l #MUIV_Font_Button,(a1)+
MOVE.l #MUIA_Cycle_Entries,(a1)+
MOVE.l d5,(a1)+
ADD.w #16,d6
MOVE.w d6,!s{tagp}
LEA cycleclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_keycycle:
MOVEA.l d1,a0
MOVEQ #0,d5
MOVE.b (a0),d5
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #20,d0
LSL #2,d0
MOVE.w d0,!s{spesize}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{special}
BEQ 'noobj
MOVEA.l d0,a0
SUBQ #1,d7
TST.l -(a2)
'loop: MOVE.l -(a2),d1
MOVE.l -(a2),d0
ALibJsr $cf01
MOVE.l d0,(a0)+
DBF d7,'loop
MOVE.l #0,(a0)+
MOVE.l #MUIA_Font,(a1)+
MOVE.l #MUIV_Font_Button,(a1)+
MOVE.l #MUIA_Cycle_Entries,(a1)+
MOVE.l !s{special},(a1)+
MOVE.l #MUIA_ControlChar,(a1)+
MOVE.l d5,(a1)+
ADD.w #24,d6
MOVE.w d6,!s{tagp}
LEA cycleclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_keycyclea:
MOVEA.l d1,a0
MOVEQ #0,d5
MOVE.b (a0),d5
MOVE.l d2,d4
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
CLR.w !s{tagp}
'tlok:
MOVEA.l !s{tagl},a1
MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #MUIA_Font,(a1)+
MOVE.l #MUIV_Font_Button,(a1)+
MOVE.l #MUIA_Cycle_Entries,(a1)+
MOVE.l d4,(a1)+
MOVE.l #MUIA_ControlChar,(a1)+
MOVE.l d5,(a1)+
ADD.w #24,d6
MOVE.w d6,!s{tagp}
LEA cycleclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_radio:
MOVE.l d1,d0
MOVE.l -(a2),d1
ALibJsr $cf01
MOVE.l d0,d4
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #20,d0
LSL #2,d0
MOVE.w d0,!s{spesize}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{special}
BEQ 'noobj
MOVEA.l d0,a0
SUBQ #1,d7
'loop: MOVE.l -(a2),d1
MOVE.l -(a2),d0
ALibJsr $cf01
MOVE.l d0,(a0)+
DBF d7,'loop
MOVE.l #0,(a0)+
MOVE.l #MUIA_Frame,(a1)+
MOVE.l #MUIV_Frame_Group,(a1)+
MOVE.l #MUIA_FrameTitle,(a1)+
MOVE.l d4,(a1)+
MOVE.l #MUIA_Background,(a1)+
MOVE.l #MUII_GroupBack,(a1)+
MOVE.l #MUIA_Radio_Entries,(a1)+
MOVE.l !s{special},(a1)+
ADD.w #32,d6
MOVE.w d6,!s{tagp}
LEA radioclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_radioa:
MOVE.l d1,d4
MOVE.l d2,d5
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok:
MOVEA.l !s{tagl},a1
MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #MUIA_Frame,(a1)+
MOVE.l #MUIV_Frame_Group,(a1)+
MOVE.l #MUIA_FrameTitle,(a1)+
MOVE.l d4,(a1)+
MOVE.l #MUIA_Background,(a1)+
MOVE.l #MUII_GroupBack,(a1)+
MOVE.l #MUIA_Radio_Entries,(a1)+
MOVE.l d5,(a1)+
ADD.w #32,d6
MOVE.w d6,!s{tagp}
LEA radioclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_keyradio:
MOVE.l d1,d0
MOVE.l -(a2),d1
ALibJsr $cf01
MOVE.l d0,d4
MOVEA.l d2,a0
MOVEQ #0,d5
MOVE.b (a0),d5
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #20,d0
LSL #2,d0
MOVE.w d0,!s{spesize}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{special}
BEQ 'noobj
MOVEA.l d0,a0
SUBQ #1,d7
TST.l -(a2)
'loop: MOVE.l -(a2),d1
MOVE.l -(a2),d0
ALibJsr $cf01
MOVE.l d0,(a0)+
DBF d7,'loop
MOVE.l #0,(a0)+
MOVE.l #MUIA_Frame,(a1)+
MOVE.l #MUIV_Frame_Group,(a1)+
MOVE.l #MUIA_FrameTitle,(a1)+
MOVE.l d4,(a1)+
MOVE.l #MUIA_Background,(a1)+
MOVE.l #MUII_GroupBack,(a1)+
MOVE.l #MUIA_Radio_Entries,(a1)+
MOVE.l !s{special},(a1)+
MOVE.l #MUIA_ControlChar,(a1)+
MOVE.l d5,(a1)+
ADD.w #40,d6
MOVE.w d6,!s{tagp}
LEA radioclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_keyradioa:
MOVE.l d1,d4
MOVEA.l d2,a0
MOVEQ #0,d5
MOVE.b (a0),d5
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
CLR.w !s{tagp}
'tlok:
MOVEA.l !s{tagl},a1
MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #MUIA_Frame,(a1)+
MOVE.l #MUIV_Frame_Group,(a1)+
MOVE.l #MUIA_FrameTitle,(a1)+
MOVE.l d4,(a1)+
MOVE.l #MUIA_Background,(a1)+
MOVE.l #MUII_GroupBack,(a1)+
MOVE.l #MUIA_Radio_Entries,(a1)+
MOVE.l d3,(a1)+
MOVE.l #MUIA_ControlChar,(a1)+
MOVE.l d5,(a1)+
ADD.w #40,d6
MOVE.w d6,!s{tagp}
LEA radioclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_slider:
MOVE.l d1,d5
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #MUIA_Numeric_Min,(a1)+
MOVE.l d5,(a1)+
MOVE.l #MUIA_Numeric_Max,(a1)+
MOVE.l d2,(a1)+
MOVE.l #MUIA_Numeric_Value,(a1)+
MOVE.l d3,(a1)+
ADD.w #24,d6
MOVE.w d6,!s{tagp}
LEA sliderclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_keyslider:
MOVE.l d1,d5
MOVE.l d4,a0
MOVEQ #0,d4
MOVE.b (a0),d4
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #MUIA_Numeric_Min,(a1)+
MOVE.l d5,(a1)+
MOVE.l #MUIA_Numeric_Max,(a1)+
MOVE.l d2,(a1)+
MOVE.l #MUIA_Numeric_Value,(a1)+
MOVE.l d3,(a1)+
MOVE.l #MUIA_ControlChar,(a1)+
MOVE.l d4,(a1)+
ADD.w #32,d6
MOVE.w d6,!s{tagp}
LEA sliderclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_label:
BSR _freeobj
LEA args(pc),a1
MOVE.l a1,d3
MOVE.l d1,d0
MOVE.l -4(a2),d1
ALibJsr $cf01
MOVE.l d0,(a1)+
MOVE.l d2,(a1)+
MOVE.l #0,(a1)+
MOVEA.l d3,a0
MOVE.l #MUIO_Label,d0
!CALLMUI {MUI_MakeObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
CLR.l !s{tagl}
CLR.w !s{size}
MOVE.w #kind_label,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_numbutton: ;MUIObject,&format$,min,max (a3,d1,d2,d3)
BSR _freeobj
MOVEQ #0,d0
LEA args(pc),a0
MOVE.l a0,d5
MOVE.l #0,(a0)+
MOVE.l d2,(a0)+
MOVE.l d3,(a0)+
MOVE.l d1,d0
MOVE.l -4(a2),d1
ALibJsr $cf01
MOVE.l d0,(a0)+
MOVE.l #0,(a0)+
MOVEA.l d5,a0
MOVE.l #MUIO_NumericButton,d0
!CALLMUI {MUI_MakeObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
CLR.l !s{tagl}
CLR.w !s{size}
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_listhook:
MOVE.l d0,uhook
RTS
._list: ;d1=f$ d2=arr$
MOVEQ #0,d0
MOVE.l d2,d4
MOVE.l d1,d0
MOVE.l -(a2),d1
ALibJsr $cf01
MOVE.l d0,d3
MOVEQ #0,d0
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
TST.l uhook
BEQ 'nocol
MOVE.l #MUIA_List_DisplayHook,(a1)+
MOVE.l #27,d2 ;max col = 20
LSL #2,d2
MOVE.w d2,!s{spe2size}
MOVE.l d2,d0
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{spe2}
BEQ 'noobj
LEA DHook(pc),a0
MOVE.l a1,-(a7)
MOVEA.l !s{spe2},a1
'looph: MOVE.l (a0)+,(a1)+
BNE 'looph
MOVE.l #SizeOf.Hook,d0
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,a0
BEQ 'noobj
MOVE.l !s{spe2},SizeOf.Hook\h_Entry(a0)
MOVEA.l (a7)+,a1
MOVE.l a0,(a1)+
ADDQ.w #8,d6
'nocol: MOVE.l #MUIA_List_Format,(a1)+
MOVE.l d3,(a1)+
MOVE.l #MUIA_List_SourceArray,(a1)+
MOVE.l d4,(a1)+
ADD.w #16,d6
MOVE.w d6,!s{tagp}
LEA listclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.l #-1,d0
'noobj: RTS
_chlista:
MOVEQ #0,d0
MOVE.l d1,d5
MOVE.l d2,d6
TST.l !s{adr}
BEQ 'noobj
BSR _chlist
MOVE.l !s{adr},d0
LEA args(pc),a0
MOVE.l a0,d1
MOVE.l #MUIM_List_Insert,(a0)+
MOVE.l d5,(a0)+
MOVE.l #-1,(a0)+
MOVE.l d6,(a0)+
BSR _domethoda
'noobj: RTS
._chlist:
MOVEQ #0,d0
TST.l !s{adr}
BEQ 'noobj
MOVE.l !s{adr},d0
LEA args(pc),a0
MOVE.l a0,d1
MOVE.l #MUIM_List_Clear,(a0)+
MOVE.l #0,(a0)+
BSR _domethoda
'noobj: RTS
_listview:
MOVEQ #0,d0
TST.l !u{adr}
BEQ 'noobj
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #MUIA_Listview_List,(a1)+
MOVE.l !u{adr},(a1)+
ADDQ.w #8,d6
MOVE.w d6,!s{tagp}
LEA listviewclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.l #-1,d0
'noobj: RTS
_popbutton:
BSR _freeobj
MOVEQ #0,d0
LEA args(pc),a0
MOVE.l a0,d5
MOVE.l d1,(a0)+
MOVE.l #0,(a0)+
MOVEA.l d5,a0
MOVE.l #MUIO_PopButton,d0
!CALLMUI {MUI_MakeObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
CLR.l !s{tagl}
CLR.w !s{size}
MOVE.w #kind_gadget,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_imagebutton:
MOVEQ #0,d0
TST.l 0(a0)
BEQ 'noobj
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #SizeOf.Image,d0
MOVE.w d0,!s{spesize}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{special}
BEQ 'noobj
MOVEA.l d0,a2
MOVE.l (a0),4(a2)
MOVE.w 4(a0),8(a2)
MOVE.l 14(a0),10(a2)
MOVEQ #1,d0
MOVE.w 4(a0),d1
LSL d1,d0
SUBQ #1,d0
MOVE.b d0,14(a2)
MOVE.l #MUIA_Image_OldImage,(a1)+
MOVE.l !s{special},(a1)+
ADD.w #8,d6
MOVE.w d6,!s{tagp}
LEA imageclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.l #-1,d0
'noobj: RTS
_balance:
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #0,(a1)
LEA balanceclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_other,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_bitmap:
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #MUIA_Bitmap_Bitmap,(a1)+
MOVE.l a2,(a1)+
MOVE.l #MUIA_Bitmap_Width,(a1)+
MOVEQ #0,d0
MOVE.w (a2),d0
LSL.w #3,d0
MOVE.l d0,(a1)+
MOVE.l #MUIA_Bitmap_Height,(a1)+
MOVE.w #0,(a1)+
MOVE.w 2(a2),(a1)+
MOVE.l #0,(a1)
ADDI.w #24,d6
MOVE.w d6,!s{tagp}
LEA bitmapclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_other,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_bitmappal:
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #MUIA_Bitmap_Bitmap,(a1)+
MOVE.l a2,(a1)+
MOVE.l #MUIA_Bitmap_Width,(a1)+
MOVEQ #0,d0
MOVE.w (a2),d0
LSL.w #3,d0
MOVE.l d0,(a1)+
MOVE.l #MUIA_Bitmap_Height,(a1)+
MOVE.w #0,(a1)+
MOVE.w 2(a2),(a1)+
MOVE.l #MUIA_Bitmap_SourceColors,(a1)+
MOVEA.l (a0),a0
LEA 4(a0),a0
MOVE.l a0,(a1)+
ADDI.w #32,d6
MOVE.w d6,!s{tagp}
LEA bitmapclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_other,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_shape:
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #SizeOf.BitMap,d0
MOVE.w d0,!s{spesize}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{special}
BEQ 'noobj
MOVEA.l d0,a0
MOVE.w 6(a2),(a0)
MOVE.w 2(a2),2(a0)
MOVE.w 4(a2),4(a0)
MOVEQ #0,d7
MOVEQ #0,d0
MOVE.w 4(a2),d7
SUBQ #1,d7
MOVE.w 22(a2),d1
MOVE.l a1,-(a7)
'loop: MOVE.l d7,d0
MOVE.l d7,d2
LSL #2,d2
MULU d1,d0
MOVEA.l 14(a2),a1
ADDA.l d0,a1
MOVE.l a1,8(a0,d2.l)
DBF d7,'loop
MOVEA.l (a7)+,a1
MOVE.l #MUIA_Bitmap_Bitmap,(a1)+
MOVE.l a0,(a1)+
MOVE.l #MUIA_Bitmap_Width,(a1)+
MOVE.w #0,(a1)+
MOVE.w (a2),(a1)+
MOVE.l #MUIA_Bitmap_Height,(a1)+
MOVE.w #0,(a1)+
MOVE.w 2(a2),(a1)+
ADDI.w #24,d6
MOVE.w d6,!s{tagp}
LEA bitmapclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_other,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_shapepal:
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #SizeOf.BitMap,d0
MOVE.w d0,!s{spesize}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{special}
BEQ 'noobj
MOVEM.l a0-a1,-(a7)
MOVEA.l d0,a0
MOVE.w 6(a2),(a0)
MOVE.w 2(a2),2(a0)
MOVE.w 4(a2),4(a0)
MOVEQ #0,d7
MOVEQ #0,d0
MOVE.w 4(a2),d7
SUBQ #1,d7
MOVE.w 22(a2),d1
'loop: MOVE.l d7,d0
MOVE.l d7,d2
LSL #2,d2
MULU d1,d0
MOVEA.l 14(a2),a1
ADDA.l d0,a1
MOVE.l a1,8(a0,d2.l)
DBF d7,'loop
MOVEM.l (a7)+,a0-a1
MOVE.l #MUIA_Bitmap_Bitmap,(a1)+
MOVE.l !s{special},(a1)+
MOVE.l #MUIA_Bitmap_Width,(a1)+
MOVE.w #0,(a1)+
MOVE.w (a2),(a1)+
MOVE.l #MUIA_Bitmap_Height,(a1)+
MOVE.w #0,(a1)+
MOVE.w 2(a2),(a1)+
MOVE.l #MUIA_Bitmap_SourceColors,(a1)+
MOVEA.l (a0),a0
LEA 4(a0),a0
MOVE.l a0,(a1)
ADDI.w #32,d6
MOVE.w d6,!s{tagp}
LEA bitmapclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.w #kind_other,!s{kind}
MOVE.l #-1,d0
'noobj: RTS
_chbitmap:
MOVE.l !s{adr},d0
BEQ 'noobj
LEA args(pc),a1
MOVE.l a1,d3
MOVE.l #MUIA_Bitmap_Bitmap,(a1)+
MOVE.l a2,(a1)+
MOVE.l #MUIA_Bitmap_Width,(a1)+
MOVEQ #0,d0
MOVE.w (a2),d0
LSL.w #3,d0
MOVE.l d0,(a1)+
MOVE.l #MUIA_Bitmap_Height,(a1)+
MOVE.w #0,(a1)+
MOVE.w 2(a2),(a1)+
MOVE.l #0,(a1)
MOVEA.l d3,a1
MOVEA.l !s{adr},a0
JSR -648(a6)
'noobj: RTS
_chbitmappal:
TST.l !s{adr}
BEQ 'noobj
LEA args(pc),a1
MOVE.l a1,d3
MOVE.l #MUIA_Bitmap_Bitmap,(a1)+
MOVE.l a2,(a1)+
MOVE.l #MUIA_Bitmap_Width,(a1)+
MOVEQ #0,d0
MOVE.w (a2),d0
LSL.w #3,d0
MOVE.l d0,(a1)+
MOVE.l #MUIA_Bitmap_Height,(a1)+
MOVE.w #0,(a1)+
MOVE.w 2(a2),(a1)+
MOVE.l #MUIA_Bitmap_SourceColors,(a1)+
MOVEA.l (a0),a0
LEA 4(a0),a0
MOVE.l a0,(a1)+
MOVE.l #0,(a1)
MOVEA.l d3,a1
MOVEA.l !s{adr},a0
JSR -648(a6)
'noobj: RTS
_chshape:
TST.l !s{adr}
BEQ 'noobj
MOVE.l !s{special},a0
MOVE.w 6(a2),(a0)
MOVE.w 2(a2),2(a0)
MOVE.w 4(a2),4(a0)
MOVEQ #0,d7
MOVEQ #0,d0
MOVE.w 4(a2),d7
SUBQ #1,d7
MOVE.w 22(a2),d1
'loop: MOVE.l d7,d0
MOVE.l d7,d2
LSL #2,d2
MULU d1,d0
MOVEA.l 14(a2),a1
ADDA.l d0,a1
MOVE.l a1,8(a0,d2.l)
DBF d7,'loop
MOVE.l !s{adr},d0
LEA args(pc),a1
MOVE.l a1,d3
MOVE.l #MUIA_Bitmap_Bitmap,(a1)+
MOVE.l a0,(a1)+
MOVE.l #MUIA_Bitmap_Width,(a1)+
MOVEQ #0,d0
MOVE.w (a0),d0
LSL.w #3,d0
MOVE.l d0,(a1)+
MOVE.l #MUIA_Bitmap_Height,(a1)+
MOVE.w #0,(a1)+
MOVE.w 2(a0),(a1)+
MOVE.l #0,(a1)
MOVEA.l d3,a1
MOVEA.l !s{adr},a0
JSR -648(a6)
'noobj: RTS
_chshapepal:
MOVE.l a6,_IntuiBase
TST.l !s{adr}
BEQ 'noobj
MOVE.l a0,-(a7)
MOVE.l !s{special},a0
MOVE.w 6(a2),(a0)
MOVE.w 2(a2),2(a0)
MOVE.w 4(a2),4(a0)
MOVEQ #0,d7
MOVEQ #0,d0
MOVE.w 4(a2),d7
SUBQ #1,d7
MOVE.w 22(a2),d1
'loop: MOVE.l d7,d0
MOVE.l d7,d2
LSL #2,d2
MULU d1,d0
MOVEA.l 14(a2),a1
ADDA.l d0,a1
MOVE.l a1,8(a0,d2.l)
DBF d7,'loop
MOVE.l !s{adr},d0
LEA args(pc),a1
MOVE.l a1,d3
MOVE.l #MUIA_Bitmap_Bitmap,(a1)+
MOVE.l a0,(a1)+
MOVE.l #MUIA_Bitmap_Width,(a1)+
MOVEQ #0,d0
MOVE.w (a0),d0
LSL.w #3,d0
MOVE.l d0,(a1)+
MOVE.l #MUIA_Bitmap_Height,(a1)+
MOVE.w #0,(a1)+
MOVE.w 2(a0),(a1)+
MOVEA.l (a7)+,a0
MOVE.l #MUIA_Bitmap_SourceColors,(a1)+
MOVEA.l (a0),a0
LEA 4(a0),a0
MOVE.l a0,(a1)+
MOVE.l #0,(a1)
MOVEA.l d3,a1
MOVEA.l !s{adr},a0
JSR -648(a6)
'noobj: RTS
.
._addobjhgroup:
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
MOVE.l #MUIA_Group_Horiz,(a1)+
MOVE.l #1,(a1)+
MOVE.w #8,!s{tagp}
MOVEA.l d0,a1
'tlok: TST.l !t{adr}
BEQ 'noobj
MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #Child,(a1)+
MOVE.l !t{adr},(a1)
ADDQ.w #8,d6
MOVE.w d6,!s{tagp}
MOVE.l #-1,d0
'noobj: RTS
._createhgroup:
MOVEQ #0,d0
TST.l !s{tagl}
BEQ 'noobj
LEA groupclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.l #-1,d0
'noobj: RTS
._addobjvgroup:
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: TST.l !t{adr}
BEQ 'noobj
MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #Child,(a1)+
MOVE.l !t{adr},(a1)
ADDQ.w #8,d6
MOVE.w d6,!s{tagp}
MOVE.l #-1,d0
'noobj: RTS
._createvgroup:
MOVEQ #0,d0
TST.l !s{tagl}
BEQ 'noobj
LEA groupclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.l #-1,d0
'noobj: RTS
._addobjpage:
MOVEA.l !s{tagl},a1
TST.l !s{tagl}
BNE 'tlok
MOVE.l maxt(pc),d0
LSL #2,d0
MOVE.w d0,!s{size}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $C002
MOVE.l d0,!s{tagl}
BEQ 'noobj
MOVEA.l d0,a1
CLR.w !s{tagp}
'tlok: TST.l !t{adr}
BEQ 'noobj
MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #Child,(a1)+
MOVE.l !t{adr},(a1)
ADDQ.w #8,d6
MOVE.w d6,!s{tagp}
MOVE.l #-1,d0
'noobj: RTS
._createpage:
MOVEQ #0,d0
TST.l !s{tagl}
BEQ 'noobj
MOVEA.l !s{tagl},a1
MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.w #20,d0
LSL.w #2,d0
MOVE.w d0,!s{spesize}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $c002
MOVE.l d0,!s{special}
BEQ 'noobj
MOVEA.l d0,a0
SUBQ #1,d7
'loop: MOVE.l -(a2),d1
MOVE.l -(a2),d0
ALibJsr $cf01
MOVE.l d0,(a0)+
DBF d7,'loop
MOVE.l #0,(a0)+
MOVE.l #MUIA_Register_Titles,(a1)+
MOVE.l !s{special},(a1)+
ADDQ.w #8,d6
MOVE.w d6,!s{tagp}
LEA registerclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.l #-1,d0
'noobj: RTS
_createpagea:
MOVEQ #0,d0
TST.l !s{tagl}
BEQ 'noobj
MOVE.l d1,d3
MOVE.l #20,d0
LSL #2,d0
MOVE.w d0,!s{spesize}
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $c002
MOVE.l d0,!s{special}
BEQ 'noobj
MOVEA.l d0,a0
MOVEA.l d3,a2
'loop: MOVE.l (a2)+,a1
MOVE.l a1,d0
MOVEQ #-1,d1
'loops: ADDQ #1,d1
TST.b (a1)+
BNE 'loops
ALibJsr $cf01
MOVE.l d0,(a0)+
BNE 'loop
MOVEA.l !s{tagl},a1
MOVE.w !s{tagp},d6
ADDA.w d6,a1
MOVE.l #0,(a0)+
MOVE.l #MUIA_Register_Titles,(a1)+
MOVE.l !s{special},(a1)+
ADDQ.w #8,d6
MOVE.w d6,!s{tagp}
LEA registerclass(pc),a0
MOVEA.l !s{tagl},a1
!CALLMUI {MUI_NewObjectA}
MOVE.l d0,!s{adr}
BEQ 'noobj
MOVE.l #-1,d0
'noobj: RTS
CNIF #First_Compile=0
_addobjh:
SUBQ #1,d7
'loop: MOVE.w -(a2),d1
MOVEM.l d0/d7/a2,-(a7)
ALibJsr MUIAddObjHGroup
MOVEM.l (a7)+,d0/d7/a2
DBF d7,'loop
RTS
_addobjv:
SUBQ #1,d7
'loop: MOVE.w -(a2),d1
MOVEM.l d0/d7/a2,-(a7)
ALibJsr MUIAddObjVGroup
MOVEM.l (a7)+,d0/d7/a2
DBF d7,'loop
RTS
_addobjp:
SUBQ #1,d7
'loop: MOVE.w -(a2),d1
MOVEM.l d0/d7/a2,-(a7)
ALibJsr MUIAddObjPage
MOVEM.l (a7)+,d0/d7/a2
DBF d7,'loop
RTS
CEND
.
._insertsingle:
MOVEQ #0,d0
TST.l !s{adr}
BEQ 'noobj
MOVE.l d1,d4
CMP.w #1,d7
BGT 'col
MOVE.l -(a2),d1
MOVE.l -(a2),d0
ALibJsr $cf01
MOVE.l d0,d2
BRA 'nocol
'col: MOVE.w d7,d0
ADDQ #1,d0
LSL #2,d0
MOVE.l #MEMF_PUBLIC|MEMF_CLEAR,d1
ALibJsr $c002
MOVE.l d0,d2
BEQ 'noobj
MOVEA.l d2,a0
SUBQ #1,d7
'loop: MOVE.l -(a2),d1
MOVE.l -(a2),d0
ALibJsr $cf01
MOVE.l d0,(a0)+
DBF d7,'loop
MOVE.l #0,(a0)+
'nocol: MOVE.l !s{adr},d0
LEA args(pc),a0
MOVE.l a0,d1
MOVE.l #MUIM_List_InsertSingle,(a0)+
MOVE.l d2,(a0)+
MOVE.l d4,(a0)+
MOVE.l #0,(a0)+
BSR _domethoda
'noobj: RTS
_insertsinglea:
MOVEQ #0,d0
TST.l !s{adr}
BEQ 'noobj
MOVE.l d1,d4
MOVE.l !s{adr},d0
LEA args(pc),a0
MOVE.l a0,d1
MOVE.l #MUIM_List_InsertSingle,(a0)+
MOVE.l d2,(a0)+
MOVE.l d4,(a0)+
MOVE.l #0,(a0)+
BSR _domethoda
'noobj: RTS
._removesingle:
MOVEQ #0,d0
MOVE.l !s{adr},d0
BEQ 'noobj
LEA args(pc),a0
MOVE.l a0,d2
MOVE.l #MUIM_List_Remove,(a0)+
MOVE.l d1,(a0)+
MOVE.l #0,(a0)+
MOVE.l d2,d1
BSR _domethoda
'noobj: RTS
._redrawsingle:
MOVEQ #0,d0
MOVE.l !s{adr},d0
BEQ 'noobj
LEA args(pc),a0
MOVE.l a0,d2
MOVE.l #MUIM_List_Redraw,(a0)+
MOVE.l d1,(a0)+
MOVE.l #0,(a0)+
MOVE.l d2,d1
BSR _domethoda
'noobj: RTS
._listtitle:
MOVE.l a6,_IntuiBase
MOVEQ #0,d0
TST.l !s{adr}
BEQ 'noobj
CMP.w #1,d7
BGT 'col
MOVE.l -(a2),d1
MOVE.l -(a2),d0
ALibJsr $cf01
MOVE.l d0,d2
MOVE.l !s{adr},d0
MOVE.l #MUIA_List_Title,d1
BSR _set
BRA 'noobj
'col: MOVEA.l !s{spe2},a0
ADDA.l #24,a0
SUBQ #1,d7
'loop: MOVE.l -(a2),d1
MOVE.l -(a2),d0
ALibJsr $cf01
MOVE.l d0,(a0)+
DBF d7,'loop
MOVE.l #0,(a0)+
MOVE.l !s{adr},d0
MOVE.l #MUIA_List_Title,d1
MOVEQ.l #1,d2
BSR _set
'noobj: RTS
_listtitlea:
MOVE.l a6,_IntuiBase
MOVEQ #0,d0
TST.l !s{adr}
BEQ 'noobj
MOVEA.l !s{spe2},a0
ADDA.l #24,a0
MOVEA.l d1,a1
'loop: MOVE.l (a1)+,(a0)+
BNE 'loop
MOVE.l #0,(a0)+
MOVE.l !s{adr},d0
MOVE.l #MUIA_List_Title,d1
MOVEQ.l #1,d2
BSR _set
'noobj: RTS
.
._muiset:
TST !s{adr}
BEQ 'noobj
MOVEA.l !s{adr},a0
LEA args(pc),a1
MOVE.l a1,d0
SUBQ #1,d7
'loop: MOVE.l -(a2),(a1)+
DBF d7,'loop
MOVE.l #0,(a1)+
MOVEA.l d0,a1
JSR -648(a6)
'noobj: RTS
_muiseta:
TST !s{adr}
BEQ 'noobj
MOVEA.l !s{adr},a0
MOVEA.l d1,a1
JSR -648(a6)
'noobj: RTS
._muiget:
MOVEA.l !s{adr},a0
MOVE.l d1,d0
LEA stp(pc),a1
JSR -654(a6)
MOVE.l stp(pc),d0
'noobj: RTS
._redraw:
TST.l !s{adr}
BEQ 'noobj
MOVEA.l !s{adr},a0
MOVE.l d1,d0
!CALLMUI {MUI_Redraw}
MOVEQ #-1,d0
'noobj: RTS
._dmethod:
MOVEQ #0,d0
TST.l !s{adr}
BEQ 'noobj
MOVE.l !s{adr},d0
LEA args(pc),a1
MOVE.l a1,d3
MOVE.l d1,(a1)+
SUBQ #1,d7
'loop: MOVE.l -(a2),(a1)+
DBF d7,'loop
MOVE.l d3,d1
BSR _domethoda
'noobj: RTS
_dmethoda:
MOVEQ #0,d0
TST.l !s{adr}
BEQ 'noobj
MOVE.l !s{adr},d0
LEA args(pc),a1
MOVE.l a1,d3
MOVE.l d1,(a1)+
MOVE.l d2,a2
'loop: MOVE.l (a2)+,(a1)+
BNE 'loop
MOVE.l d3,d1
BSR _domethoda
'noobj: RTS
._notify:
TST.l !s{adr}
BEQ 'noobj
TST.l !u{adr}
BEQ 'noobj
LEA args(pc),a1
MOVE.l a1,d3
MOVE.l #MUIM_Notify,(a1)+
MOVE.l d1,(a1)+
MOVE.l d2,(a1)+
MOVE.l !u{adr},(a1)+
MOVE.w #0,(a1)+
MOVE.w d7,(a1)+
SUBQ #1,d7
'loop: MOVE.l -(a2),(a1)+
DBF d7,'loop
MOVE.l d3,d1
MOVE.l !s{adr},d0
BSR _domethoda
'noobj: RTS
_notifya:
TST.l !s{adr}
BEQ 'noobj
TST.l !u{adr}
BEQ 'noobj
LEA args(pc),a1
MOVE.l a1,d3
MOVE.l #MUIM_Notify,(a1)+
MOVE.l d1,(a1)+
MOVE.l d2,(a1)+
MOVE.l !u{adr},(a1)+
MOVEA.l d4,a2
MOVEQ #-1,d7
'loop1: ADDQ #1,d7
TST.l (a2)+
BNE 'loop1
MOVE.l d7,(a1)+
MOVEA.l d4,a2
'loop2: MOVE.l (a2)+,(a1)+
BNE 'loop2
MOVE.l d3,d1
MOVE.l !s{adr},d0
BSR _domethoda
'noobj: RTS
_notifyapp:
TST.l !s{adr}
BEQ 'noobj
TST.l appaddr
BEQ 'noobj
LEA args(pc),a1
MOVE.l a1,d4
MOVE.l #MUIM_Notify,(a1)+
MOVE.l d1,(a1)+
MOVE.l d2,(a1)+
MOVE.l appaddr(pc),(a1)+
MOVE.l #2,(a1)+
MOVE.l #MUIM_Application_ReturnID,(a1)+
MOVE.l d3,(a1)+
MOVE.l #0,(a1)
MOVE.l d4,d1
MOVE.l !s{adr},d0
BSR _domethoda
'noobj: RTS
._event:
TST.l appaddr
BEQ 'noapp
MOVE.l appaddr(pc),d0
LEA args(pc),a0
MOVE.l a0,d1
MOVE.l #MUIM_Application_NewInput,(a0)+
LEA sigs(pc),a1
MOVE.l a1,(a0)+
BSR _domethoda
'noapp: RTS
._waitevent:
TST.l appaddr
BEQ 'noapp
MOVE.l sigs(pc),d0
BEQ 'nosigs
MOVE.l 4,a6
JSR -318(a6)
'nosigs:BRA _event
'noapp: RTS
._findudata:
TST.l !t{adr}
BEQ 'noobj
LEA args(pc),a0
MOVE.l a0,d1
MOVE.l #MUIM_FindUData,(a0)+
MOVE.l d2,(a0)+
MOVE.l #0,(a0)
MOVE.l !t{adr},d0
BSR _domethoda
MOVE.l d0,!s{adr}
CLR.l !s{tagl}
CLR.l !s{special}
MOVE.l #-1,d0
'noobj: RTS
.
._freeobj:
MOVEM.l d0-d1/a1,-(a7)
CMP.w #kind_app,!s{kind}
BEQ 'nospe2
MOVE.l !s{size},d0
BEQ 'notl
MOVE.l !s{tagl},d1
BEQ 'notl
MOVEA.l d1,a1
ALibJsr $c003
'notl: MOVE.l !s{spesize},d0
BEQ 'nospe
MOVE.l !s{special},d1
BEQ 'nospe
MOVEA.l d1,a1
ALibJsr $c003
'nospe: MOVE.l !s{spe2size},d0
BEQ 'nospe2
MOVE.l !s{spe2},d1
BEQ 'nospe2
MOVEA.l d1,a1
ALibJsr $c003
'nospe2:MOVEM.l (a7)+,d0-d1/a1
RTS
_domethoda: ;DoMethodA(obj,msg)(d0/d1)
TST.l d0
BEQ.b cmnullreturn
MOVE.l d0,a2
MOVE.l d1,a1
MOVE.l -4(a2),a0
cminvoke:
PEA.l cmreturn(pc)
MOVE.l 8(a0),-(a7)
RTS
cmnullreturn:
MOVEQ #0,d0
cmreturn:
RTS
_set: ;set(obj,attr,value)(d0/d1/d2)
MOVEM.l a0-a1/a6,-(a7)
MOVEA.l _IntuiBase(pc),a6
MOVEA.l d0,a0
LEA args(pc),a1
MOVE.l a1,d0
MOVE.l d1,(a1)+
MOVE.l d2,(a1)+
MOVE.l #0,(a1)+
MOVE.l d0,a1
JSR -648(a6)
MOVEM.l (a7)+,a0-a1/a6
RTS
Even
DHook:
Dc.l $B3FC0000 ;
Dc.w $0000 ; cmpa.l #0,a1
Dc.w $6706 ; beq.s .titles
Dc.w $24D9 ;.loop move.l (a1)+,(a2)+
Dc.w $66FC ; bne.s .loop
Dc.w $6008 ; bra.s .end
Dc.l $43FA0008 ;.titles lea tit(pc),a1
Dc.w $24D9 ;.loop2 move.l (a1)+,(a2)+
Dc.w $66FC ; bne.s .loop2
Dc.w $4E75 ;.end rts
Dc.l 0 ;tit dc.l 0
Even
_MUIBase: Dc.l 0
_IntuiBase: Dc.l 0
s0: Dc.l 0
s1: Dc.l 0
s2: Dc.l 0
tits: Dc.l 0
stp: Dc.l 0
sigs: Dc.l 0
str: Dc.l 0,0
args: Dcb.l 40,0
temp: Dcb.l 20,0
Even
appstruct:
appaddr: Dc.l 0
appkind: Dc.w 4
apptags: Dc.l 0
apptap: Dc.w 0
appsize: Dc.w 160
appspecial: Dc.l 0
appspesize: Dc.w 0
Even
;************************************************************
;* ERRORS *
;************************************************************
.
.errors:
err1: MOVEQ.l #1,d0
TRAP #0
Even
initerr:
MOVE.l #MUI_INIT_ERR,d0
TRAP #0
Even
MUI_INIT_ERR:
Dc.b "MUILib INIT ERROR!!!",0
Even
;************************************************************
;* DATAS *
;************************************************************
uhook: Dc.l 0
maxt: Dc.l 51
cenc: Dc.b $1B,$63,$00,$1B
Even
appclass: Dc.b "Application.mui",0
winclass: Dc.b "Window.mui",0
groupclass: Dc.b "Group.mui",0
imageclass: Dc.b "Image.mui",0
rectangleclass: Dc.b "Rectangle.mui",0
stringclass: Dc.b "String.mui",0
textclass: Dc.b "Text.mui",0
cycleclass: Dc.b "Cycle.mui",0
radioclass: Dc.b "Radio.mui",0
sliderclass: Dc.b "Slider.mui",0
registerclass: Dc.b "Register.mui",0
listclass: Dc.b "List.mui",0
listviewclass: Dc.b "Listview.mui",0
balanceclass: Dc.b "Balance.mui",0
bitmapclass: Dc.b "Bitmap.mui",0
Even
ver: Dc.b "$VER: EFMUILib version 1.4 (01.02.98) (C)opyRight 1997/1998 by Vivid Imagination",0
Even
